--======================================================================--
local 商城类 = class()
local mousea = 引擎.鼠标弹起
local tos = 引擎.取金钱颜色
local insert = table.insert
local remove = table.remove
local floor = math.floor
local move = table.move
local min = math.min
local max = math.max
local ceil = math.ceil
local ani = 引擎.取战斗模型
local zts2,zts
local tp
local 临时资源包
local 商城菜单={祥瑞商城={"足迹","光环","祥瑞","锦衣","施法特效","祥瑞套装"},仙玉商店={"仙玉商城","特殊商城","礼包"},杂货商城={"银子商城"},神兽商城={"宝宝"},法宝商城={"法宝"},积分商城={"天罡积分","地煞积分","神器积分"},灵宝商城={"灵宝"}}
local 锦衣组={光环=1,祥瑞=1,足迹=1,锦衣=1,施法特效=1,祥瑞套装=1}
function 商城类:初始化(根)
	tp=根
	self.ID = 74
	self.x = 0
	self.y = 0
	self.xx = 0
	self.yy = 0
	self.可视 = false
	self.鼠标 = false
	self.焦点 = false
	self.可移动 = true
	self.本类开关 = false
	self.选中编号4=0
	self.选中编号3 = 0
	self.选中编号2 = 0
	self.选中编号 = 0
	self.银两数额 = 0
	self.加入 = 0
	self.分类="杂货"
	self.子类="银子商城"
	self.控件类 = require("ggeui/加载类")()
	local 总控件 = self.控件类:创建控件('给予总控件')
	总控件:置可视(true,true)
	self.输入框 = 总控件:创建输入("银两输入",0,0,100,14)
	self.输入框:置可视(false,false)
	self.输入框:置限制字数(8)
	self.输入框:置数字模式()
	self.输入框:屏蔽快捷键(true)
	self.输入框:置光标颜色(-16777216)
	self.输入框:置文字颜色(-16777216)
	zts2 = require("gge文字类").创建(nil,16,false,false,true)
	zts = require("gge文字类").创建(nil,12,false,false,true)
	zts2:置描边颜色(-16777216)
	zts:置描边颜色(-16777216)
	zts:置颜色(4294967295)
	zts2:置颜色(4294967295)
		self.窗口时间 = 0
end

function 商城类:检查点(x,y)
	if self.可视 and self.背景窗口 ~= nil and self.背景窗口:是否选中(x,y) then
		return true
	else
		return false
	end
end
function 商城类:释放资源()
self.背景图 =nil
self.背景窗口 = nil
self.银子背景 =nil
self.物品背景 =nil
self.锦衣背景 =nil
self.仙玉背景 =nil
self.宠物背景 =nil
self.无边背景 =nil
self.标题背景 =nil
self.无边背景1=nil
self.宠物大背景 =nil
self.关闭按键 = nil
self.左转 = nil
self.选中显示 =nil
self.选中显示2 = nil
self.银两文字 = nil
self.银两文字1 = nil
self.银两文字2 = nil
self.银两文字3 = nil
self.调用文字 =nil
self.调用文字2 = nil
self.购买 = nil
self.充值 = nil
self.宠物背景图 =nil
self.资源组=nil
self.图标=nil
self.仙玉商城= nil
self.仙玉锻造 =nil
self.仙玉炼妖 =nil
self.银子锻造 = nil
self.银子杂货 = nil
if self.物品数据 then
for k,v in pairs(self.物品数据) do
self.物品数据[k]= nil
end
end

self.物品数据= nil
print("商城类清理完成")
end
function 商城类:加载资源()
	local 资源 = tp.资源
		local 按钮 = tp._按钮
		local 自适应 = tp._自适应
		self.背景图 =资源:载入('qxxsc.wdf',"网易WDF动画",0x81111128)	 --√
		self.方向 = 4
		self.背景窗口 = tp.资源:载入("pic/商城/scbj.png","图片")	 --√
		self.银子背景 =资源:载入('wdf/audio/tupian/555588.png',"图片")--资源:载入('wdf/audio/tupian/6666.png',"图片")-- tp.资源:载入("pic/商城/物品背景.png","图片")--00000298.was
		self.仙玉背景 =资源:载入('wdf/audio/tupian/555589.png',"图片")--资源:载入('wdf/audio/tupian/6666.png',"图片")-- tp.资源:载入("pic/商城/物品背景.png","图片")
		self.物品背景 =资源:载入('common/wzife.wdf',"网易WDF动画",849328792)
        self.宠物背景 =资源:载入('wdf/audio/tupian/111.png',"图片")
        self.锦衣背景 =资源:载入('wdf/audio/tupian/111.png',"图片")
        self.选中显示5 = 资源:载入('wdf/audio/tupian/888.png',"图片")
        self.选中显示6 = 资源:载入('wdf/audio/tupian/882.png',"图片")
        self.宝宝选中显示 = 资源:载入('wdf/audio/tupian/881.png',"图片")
        self.无边背景 =资源:载入('wdf/audio/tupian/555587.png',"图片")
        self.标题背景 = 资源:载入('新商城.wdf',"网易WDF动画",0x00000302)
		--self.宠物大背景 =自适应.创建(1091,1,105,130,3,9)--
		self.关闭按键 = tp.资源:载入("pic/商城/关闭.png","图片")
		self.左转 = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"左转")
		self.选中显示 =资源:载入('wzife.wdf',"网易WDF动画",0x6F88F494)
		self.选中显示2 =资源:载入('wzife.wdf',"网易WDF动画",0x6F88F494)-- tp.小动态.神-- 资源:载入('wzife.wdf',"网易WDF动画",0x10921CA7)
		self.银两文字 = tp.字体表.普通字体
		self.银两文字1 = tp.字体表.普通字体
		self.银两文字2 = tp.字体表.普通字体
		self.银两文字3 = tp.字体表.普通字体
		--self.银两文字2:置颜色(黑色)
		self.银两文字3:置颜色(黑色)
		self.调用文字 = tp.字体表.普通字体
		self.调用文字:置颜色(白色)
		self.调用文字2 = tp.字体表.普通字体
		self.调用文字2:置颜色(黑色)
		self.购买 = 按钮.创建(自适应.创建(17,4,71,22,1,3),0,0,1,true,true," 购  买")
		self.充值 = 按钮.创建(自适应.创建(17,4,71,22,1,3),0,0,4,true,true," 充  值")
		self.宠物背景图 = 资源:载入('wzife.wd3',"网易WDF动画",0xD1B1C090)
		--self.流水 = 资源:载入('mapani.wdf',"网易WDF动画",0xF8FC9410)
		self.购买:绑定窗口_(74)
		self.充值:绑定窗口_(74)
		self.左转:绑定窗口_(74)
		self.资源组 = {
			[1] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    银 子 商 城 "),  --三是左右长度四是上下长度
			[2] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    仙 玉 商 店 "),	 --√
			[3] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    积 分 商 城 "),	 --√
			[5] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    神 兽 商 城 "),	 --√
			[4] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    灵 宝 商 城 "),	 --√
			[6] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    法 宝 商 城 "),	 --√
			[8] = 按钮.创建(资源:载入('xsc1.wdf',"网易WDF动画",0x00000033),0,0,4,true,true,"    人 物 外 观 "),	 --√
			[7] = 按钮.创建(自适应.创建(12,4,72,22,1,3),0,0,4,true,true,"  查看召唤兽属性"),
			[25] = 自适应.创建(3,1,130,19,1,3),
			[26] = 自适应.创建(2,1,158,153,3,9),
			[27] = 按钮.创建(自适应.创建(17,4,58,22,1,3),0,0,1,true,true,"上一页"),		--√
			[28] = 按钮.创建(自适应.创建(17,4,58,22,1,3),0,0,1,true,true,"下一页"),		--√
			[35] =  tp._滑块.创建(自适应.创建(11,4,15,40,2,3,nil),4,14,264,2),
			[36] = 按钮.创建(自适应.创建(18,4,16,16,4,3),0,0,4,true,true),
			-- [38] = 按钮.创建(资源:载入('aaa.wdf',"网易WDF动画",0xAF73D0A2),0,0,3,true,true,"锦衣"),	--√
		--	[39] = pwd("12"),  --	模型背景--"仙玉商城","特殊商城","礼包"
			[40] = 按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,4,true,true,"法宝"),	--√
			[41] = 按钮.创建(资源:载入('aaa.wdf',"网易WDF动画",0xAF73D0A2),0,0,3,true,true,"仙玉商城"),	--√
			[42] = 按钮.创建(资源:载入('aaa.wdf',"网易WDF动画",0xAF73D0A2),0,0,3,true,true,"特殊商城"),	--√
			[43] = 按钮.创建(资源:载入('aaa.wdf',"网易WDF动画",0xAF73D0A2),0,0,3,true,true,"礼包"),	--√
			[44] = 按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,1,true,true,"天罡积分"),	--√
			[45] = 按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,1,true,true,"地煞积分"),	--√
			 [46] = 按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,1,true,true,"光环"),	--√
			 [47] = 按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,1,true,true,"祥瑞"),	--√
		     [48] = 按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,1,true,true,"锦衣"),	--√
			 [49] = 按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,1,true,true,"施法特效"),
			 [50] = 按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,1,true,true,"祥瑞套装"),	--√
			 [51] = 按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,1,true,true,"足迹"),	--√
			 [52] =  按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,1,true,true,"神器积分"),	--√
			 -- [53] = 图像类("pic/锦衣背景.png"),
			-- [53] = 按钮.创建(资源:载入('aaa.wdf',"网易WDF动画",0xAF73D0A2),0,0,3,true,true,"称号"),	--√
			-- [54] = 按钮.创建(自适应.创建(13,4,58,20,1,3),0,0,4,true,true," 旋转"),
			 [60] = 按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,4,true,true,"灵宝"),
		}--{"光环","祥瑞","锦衣","施法特效","祥瑞套装"}
		self.仙玉商城= 按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,4,true,true,"仙玉商城")--商城同色按钮
		self.特殊商城 =按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,4,true,true,"特殊商城")
		self.礼包 =按钮.创建(自适应.创建(17,4,44,22,1,3),0,0,4,true,true,"礼包")
		self.银子商城= 按钮.创建(自适应.创建(17,4,72,22,1,3),0,0,4,true,true,"银子商城")
		self.图标={银子=资源:载入('xsc1.wdf',"网易WDF动画",0x00000309),
		仙玉=资源:载入('xsc1.wdf',"网易WDF动画",0x00000310),
		积分=资源:载入('xsc1.wdf',"网易WDF动画",0x00000314),
		炼妖=资源:载入('xsc1.wdf',"网易WDF动画",0x00000313),
		推荐=资源:载入('xsc1.wdf',"网易WDF动画",0x00000315),
		法宝=资源:载入('xsc1.wdf',"网易WDF动画",0x00000312),
		锦衣=资源:载入('xsc1.wdf',"网易WDF动画",0x00000311),
	           }
	           if 直播 then
	             self.资源组[2].按钮文字="    奇 物 商 城 "
	           end
	           for i=1,8 do
			self.资源组[i]:绑定窗口_(74)
		end
		for i=27,28 do
			self.资源组[i]:绑定窗口_(74)
		end
		for i=40,51 do
			self.资源组[i]:绑定窗口_(74)
		end
		self.资源组[35]:绑定窗口_(74)
		self.资源组[36]:绑定窗口_(74)
		self.资源组[35]:置起始点(0)

end
function 商城类:打开(数据)
	if self.可视 then
		self.选中编号=0
		self.选中编号2 = 0
		self.选中编号3 = 0
		self.选中编号4 = 0
		self.可视 = false
		self:释放资源()
		tp.运行时间 = tp.运行时间 + 1
		self.窗口时间 = tp.运行时间
		return
	else
		insert(tp.窗口_,self)
		self:加载资源()
	           self.分类="杂货"
	           self.子类="银子商城"

		if 数据==nil then
		    return 0
		end
		if 数据.序列==1 then
		    self.分类="杂货"
		    self.子类="银子商城"
		elseif 数据.序列==2 then
		    self.分类="积分"
		end
		self.本类开关 = true
		self.数据 = 数据
		self.物品数据 ={}
		tp.运行时间 = tp.运行时间 + 1
		self.窗口时间 = tp.运行时间
		self.商品编号 = 0
		for k,v in pairs(数据) do
		      if v  and type(v)=="table" and  k ~="积分数"  then
			if not self.物品数据[k] then
			   self.物品数据[k]={}
			end
			for i,s in ipairs(v) do
				if k== "宝宝" then
				    local xn = 引擎.取模型(数据[k][i].模型)
				     if not xn and not xn[3] and not xn[1] then
				     	xn = 引擎.取模型("大海龟" )
				     end
							self.物品数据[k][i] = tp.资源:载入(xn[3],"网易WDF动画",xn[1])
							self.物品数据[k][i] = tp.资源:载入(xn[3],"网易WDF动画",xn[1])
							self.物品数据[k].数量=#数据[k]
							self.物品数据[k][i].编号 = i
							self.物品数据[k][i].价格=数据[k][i].价格
							self.数据[k][i].价格=数据[k][i].价格
				elseif not 锦衣组[k] then
						self.物品数据[k][i] = tp._物品格子.创建(0,0,i,"给予_物品")
						self.物品数据[k][i]:置物品(数据[k][i])
						self.物品数据[k].数量=#数据[k]
						self.物品数据[k][i].编号 = i
						self.物品数据[k][i].价格=数据[k][i].价格
				end
			end
            end
		end--00002003.was 物品
		self.数量 = 1
		self.价格 = 0
		self.银子 = 数据.银子 or 0
	    self.仙玉 = 数据.仙玉 or 0
	    self.累充 = 数据.累充 or 0
	    self.点卡 = 数据.点卡 or 0
		self.积分 = 数据.积分数
		self.总额 = 0
		tp.运行时间 = tp.运行时间 + 1
		self.窗口时间 = tp.运行时间
		self.可视 = true
		self.选中编号2 = 0
		self.选中编号3 = 0
		self.选中编号4 = 0
	    self.输入框:置可视(true,true)
	    self.输入框:置文本("")
	    if self.分类 and self.子类 and  self.物品数据[self.子类] then
		self.翻页数据 = self.物品数据[self.子类] and  math.ceil(self.物品数据[self.子类].数量/15) or 1
	    else
		self.翻页数据 = self.物品数据[self.分类] and  math.ceil(self.物品数据[self.分类].数量/15) or 1
		end
	end

end
function 商城类:刷新货币(数据)
    self.银子 = 数据.银子 or 0
    self.仙玉 = 数据.仙玉 or 0
    self.累充 = 数据.累充 or 0
    self.点卡 = 数据.点卡 or 0
    self.积分 = 数据.积分数
end
function 商城类:初始系统(dt,x,y,l)
--	zts2:显示(self.x+350,self.y+ 430, "")
	if l~=nil and l==2 then
		self.商品编号=0
		self.数量 = 1
		self.价格 = 0
		self.总额 = 0
		self.选中编号=0
		self.选中编号2=0
		self.选中编号3 = 0
		self.选中编号4 = 0
		bbsa=0
		self.资源组[35]:置起始点(0)
		self.加入=0
	else
		self.商品编号=0
		self.数量 = 1
		self.价格 = 0
		self.总额 = 0
		self.选中编号=0
		self.选中编号2=0
		self.选中编号3 = 0
		self.选中编号4 = 0
	end
		if self.分类 and self.子类 and  self.物品数据[self.子类] then
			if self.物品数据[self.子类].数量==nil then
				self.物品数据[self.子类].数量=1
			end
		self.翻页数据 = self.物品数据[self.子类] and  math.ceil(self.物品数据[self.子类].数量/15) or 1
	    else
	    	if self.物品数据[self.子类] and self.物品数据[self.子类].数量==nil then
				self.物品数据[self.子类].数量=1
			end
		self.翻页数据 = self.物品数据[self.分类] and  math.ceil(self.物品数据[self.分类].数量/15) or 1
		end
end

function 商城类:显示(dt,x,y)
	if self.输入框:取文本() ~= "" and self.数量 ~= (self.输入框:取文本()+0) then
		self.数量 = 到整数(self.输入框:取文本())
		self.总额 = self.数量 * self.价格
	end
	self.焦点=false
	self.资源组[1]:更新(x,y, self.分类~="杂货")
	self.资源组[2]:更新(x,y, self.分类~="仙玉")
	self.资源组[3]:更新(x,y, self.分类~="积分")
	self.资源组[4]:更新(x,y, self.分类~="灵宝")
	self.资源组[5]:更新(x,y, self.分类~="宝宝")
	self.资源组[6]:更新(x,y, self.分类~="法宝")
	self.资源组[8]:更新(x,y, self.分类~="祥瑞")
	self.资源组[7]:更新(x,y,self.选中编号3~=0)
	self.资源组[36]:更新(x,y)
--	self.关闭按键:更新(x,y)
	self.购买:更新(x,y,self.商品编号 ~= 0)
	self.充值:更新(x,y)
	  self.加入 = self.加入-引擎.取鼠标滚轮()
	   if self.加入>=self.翻页数据 then
	      self.加入=self.翻页数据
	   elseif self.加入<=0 then
	      self.加入=0
	   end
	self.输入框:置可视(true,true)
	if self.资源组[27]:事件判断() then
		self:初始系统(dt,x,y,0)
		self.加入=self.加入-1
		if self.加入 <=0 then
		   self.加入=0
		end
	elseif self.资源组[28]:事件判断() then
		self:初始系统(dt,x,y,0)
		self.加入=self.加入+1
		 if self.加入>=self.翻页数据 then
			self.加入 = self.翻页数据
		end
	end
	self.资源组[27]:更新(x,y,self.加入 > 0)
	self.资源组[28]:更新(x,y,self.加入 < self.翻页数据)
	if self.商品编号 ~= 0 and self.物品数据[self.子类] and  self.物品数据[self.子类][self.商品编号] and not self.物品数据[self.子类][self.商品编号].可叠加 and self.数量 and self.数量<1 then
	   self.数量=1
	end
	if self.购买:事件判断() then
		if self.商品编号 == 0 then
			tp.常规提示:打开("#R/请先选择一件商品")
		else
			if self.商品编号~=0 and self.物品数据[self.子类] then
				if self.分类=="杂货" or self.分类=="法宝" then
				    if self.银子< self.物品数据[self.子类][self.商品编号].价格 then
					    tp.常规提示:打开("#R/银子不够购买商品!")
					    return 0
					end
				elseif self.分类=="仙玉" and self.仙玉< self.物品数据[self.子类][self.商品编号].价格 then
					    tp.常规提示:打开("#R/仙玉不够购买商品!")
					    return 0
			    elseif self.分类=="锦衣" and self.仙玉< self.物品数据[self.子类][self.商品编号].价格 then
					    tp.常规提示:打开("#R/仙玉不够购买商品!")
					    return 0
				elseif self.分类=="灵宝" and self.仙玉< self.物品数据[self.子类][self.商品编号].价格 then
					    tp.常规提示:打开("#R/仙玉不够购买商品!")
					    return 0
				elseif self.分类=="宝宝" and self.仙玉< self.物品数据[self.分类][self.商品编号].价格 then
						tp.常规提示:打开("#R/仙玉不够购买商品!")
					    return 0
				elseif self.分类=="宝宝"  then
					   if #tp.队伍[1].宝宝列表>=tp.队伍[1].召唤兽携带上限 then
					       tp.常规提示:打开( "#R/您当前无法携带更多的召唤兽了")
					       return 0
					   end

				end
				if self.分类 == "仙玉" or self.分类 == "灵宝" or self.分类 == "锦衣" or self.分类 == "宝宝" then
					self.仙玉=self.仙玉-self.物品数据[self.子类][self.商品编号].价格*self.数量
				else
					self.银子=self.银子-self.物品数据[self.子类][self.商品编号].价格*self.数量
				end
					self.发送信息 = {
						编号 = self.商品编号,
						位置 =self.商品编号,
						组号 = 18,
						数量 = self.数量,
						分类 = self.子类,
                        名称 = self.物品数据[self.子类][self.商品编号].名称
					}
				JGESDK:发送(30,self.发送信息)
				if tp.窗口.召唤兽属性栏.可视 then
			        tp.窗口.召唤兽属性栏:打开()
			    end
				if tp.窗口.道具行囊.可视 then
					tp.窗口.道具行囊:打开()
				end
			end
		end
	elseif self.关闭按键:是否选中(x,y) and 引擎.鼠标按下(左键) then
		self:打开()
		return
	elseif self.充值:事件判断() then
		--引擎.运行(全局地址,1)
		self:打开()
		return
	elseif self.资源组[36]:事件判断() then
		self:打开()
		self.本类开关 = false
		self.输入框:置可视(false,false)
		return false
	end

	if self.资源组[1]:事件判断() then
		self.分类="杂货"
		self.子类="银子商城"
		self:初始系统(dt,x,y,2)
	elseif self.资源组[2]:事件判断() then
		self.分类="仙玉"
		self.子类="仙玉商城"
		self:初始系统(dt,x,y,2)
	elseif self.资源组[3]:事件判断() then
		self.分类="积分"
		self.子类="天罡积分"
		self:初始系统(dt,x,y,2)
	elseif self.资源组[4]:事件判断() then
		self.分类="灵宝"
		self.子类="灵宝"
		self:初始系统(dt,x,y,2)
	elseif self.资源组[5]:事件判断() then
		self.分类="宝宝"
		self.子类="宝宝"
		self:初始系统(dt,x,y,2)
	elseif self.资源组[6]:事件判断() then
	 	self.分类="法宝"
	 	 self.子类="法宝"
	 	self:初始系统(dt,x,y,2)
	elseif self.资源组[8]:事件判断() then
		self.分类="锦衣"
	 	self.子类="锦衣"
	 	self:初始系统(dt,x,y,2)
		-- JGESDK:发送(7201,{类型="锦衣"})
		-- self.可视=false
		-- return 0
	end
	self.背景窗口:显示(self.x+25, self.y+45)
	self.关闭按键:显示(self.x+790,self.y+57)
	self.标题背景:显示(self.x+379-188-37,self.y-27+135)
-- if self.分类=="宝宝" then
	zts2:置颜色(白色)
	--zts2:显示(self.x+190+215,self.y+ 500+28, "商品数量")
	--zts2:显示(self.x+190,self.y+ 528, "商品总额")
	zts2:置颜色(黄色)
	zts2:置颜色(白色)
	--if self.分类 == "仙玉" or self.分类 == "灵宝"or self.分类 == "锦衣" then
	   --zts2:显示(self.x+190,self.y+553, "当前仙玉")
	-- elseif self.分类 == "积分" then
	 	--zts2:显示(self.x+190,self.y+553, self.子类)
	 --else
	 	--zts2:显示(self.x+190,self.y+553, "当前银子")
	--end
	-- self.资源组[25]:显示(self.x+190+80,self.y+450)	 --√	价格显示白色框
	-- self.资源组[25]:显示(self.x+190+80,self.y+475)	 --√
	--self.资源组[25]:显示(self.x+190+80+215,self.y+528)	 --√
	--self.资源组[25]:显示(self.x+190+80,self.y+528)	 --√
	--self.资源组[25]:显示(self.x+190+80,self.y+553)	 --√
	self.输入框:置坐标(self.x+190+0+215,self.y+553+2)	 --√数量框
	self.控件类:更新(dt,x,y)
	self.控件类:显示(x,y)
	self.购买:显示(self.x+650-95-16, self.y+549)	 --√
	-- self.充值:显示(self.x+520-16, self.y+552)	 --√
-- end
	self.资源组[1]:显示(self.x+25, self.y+108+38)	 --√
	self.图标.银子:显示(self.x+35, self.y+108+38)
	self.资源组[2]:显示(self.x+25, self.y+134+38)	 --√
	self.图标.仙玉:显示(self.x+30, self.y+134+38)
	self.资源组[3]:显示(self.x+25, self.y+160+38)	 --√
	self.图标.积分:显示(self.x+33, self.y+153+38)
	self.资源组[4]:显示(self.x+25, self.y+186+38)	 --√
	self.图标.推荐:显示(self.x+35, self.y+183+38)
	self.资源组[6]:显示(self.x+25, self.y+212+38)	 --√
	self.图标.法宝:显示(self.x+35, self.y+210+38)
	self.资源组[5]:显示(self.x+25, self.y+238+38)	 --√
	self.图标.炼妖:显示(self.x+34, self.y+234+38)
	self.资源组[8]:显示(self.x+25, self.y+264+38)	 --√
	self.图标.锦衣:显示(self.x+32, self.y+264+38)
	银两显示(self.银两文字, self.仙玉, self.x+188,self.y+ 65)
	银两显示(self.银两文字, self.银子, self.x+311,self.y+ 65)
	银两显示(self.银两文字, self.积分 and self.积分[self.子类] or 0, self.x+311+123,self.y+ 65) --√  点击显示价格
		if self.分类=="宝宝" and self.子类=="宝宝" then
			self:召唤兽类(dt,x,y)
		elseif self.物品数据[self.子类] and self.分类=="积分" and (self.子类=="地煞积分" or self.子类=="天罡积分"or self.子类=="神器积分") then
			self:物品类(dt,x,y)
		elseif self.物品数据[self.子类] and self.分类=="仙玉" and (self.子类=="仙玉商城" or self.子类=="特殊商城" or self.子类=="礼包") then
            self:物品类(dt,x,y)
		elseif self.物品数据[self.子类] and self.分类=="杂货" and self.子类=="银子商城"  then
            self:物品类(dt,x,y)
        elseif self.物品数据[self.子类] and self.分类=="法宝" and  self.子类=="法宝" then
		    self:物品类(dt,x,y)
		elseif self.物品数据[self.子类] and self.分类=="灵宝" and  self.子类=="灵宝" then
			self:物品类(dt,x,y)
		elseif self.物品数据[self.子类] and self.分类=="锦衣" and  (self.子类=="足迹" or self.子类=="施法特效" or self.子类=="祥瑞套装" or self.子类=="锦衣" or self.子类=="光环" or self.子类=="祥瑞") then
		    self:锦衣类(dt,x,y)
		else
			 self:物品类(dt,x,y)
		end
	if self.资源组[35].接触 then
		self.焦点 = true
		self:初始系统(dt,x,y,0)
		self.加入=0
	end
--[[if self.分类=="仙玉" then
self.背景图:显示(self.x+820, self.y+45)
end]]
self.资源组[27]:显示(self.x+680,self.y+549)
	self.资源组[28]:显示(self.x+750,self.y+549)
end

function 商城类:锦衣类(dt,x,y)
	self.右键关闭=nil
	-- self.资源组[53]:显示(self.x+152,self.y+143)
	self.输入框:置可视(true,true)
	for i=46,51 do
		self.资源组[i]:更新(x,y,self.子类~=self.资源组[i].按钮文字)
		self.资源组[i]:显示(self.x+43+120+80*(i-46),self.y+117,true,nil,nil,self.子类 ==self.资源组[i].按钮文字,2)
		for i=1,#self.数据.锦衣 do
					if self.物品数据["锦衣"][i]==nil then
				 	local xn = 引擎.取普通锦衣模型(self.数据["锦衣"][i].名称,tp.队伍[1].模型)
				 	self.物品数据["锦衣"][i] = tp.资源:载入(xn[3],"网易WDF动画",xn[1])
				 	self.物品数据["锦衣"].数量=#self.数据["锦衣"]
				 	self.物品数据["锦衣"][i].编号 = i
				 	self.物品数据["锦衣"][i].价格=self.数据["锦衣"][i].价格
				 	end
				 end

		 --商城银两显示(self.银两文字, self.仙玉, self.x+190+100,self.y+ 557)
		--商城银两显示(self.银两文字2, self.总额,self.x+190+100,self.y+525+5)	 --√

		if self.资源组[i]:事件判断()  then
			self.子类=self.资源组[i].按钮文字
			self.分类="锦衣"
			if self.子类=="光环" then
				for i=1,#self.数据["光环"] do
					if self.物品数据["光环"][i]==nil then
					    local xn = 引擎.取光环(self.数据["光环"][i].名称)
						self.物品数据["光环"][i] = tp.资源:载入(xn[4],"网易WDF动画",xn[3])
						self.物品数据["光环"].数量=#self.数据["光环"]
						self.物品数据["光环"][i].编号 = n
						self.物品数据["光环"][i].价格=self.数据["光环"][i].价格
					end
				end
			elseif self.子类=="足迹" then
				for i=1,#self.数据["足迹"] do
					if self.物品数据["足迹"][i]==nil then
						local xn = 引擎.取足迹(self.数据["足迹"][i].名称)
						self.物品数据["足迹"][i] = tp.资源:载入(xn[4],"网易WDF动画",xn[1])
						self.物品数据["足迹"].数量=#self.数据["足迹"]
						self.物品数据["足迹"][i].编号 = n
						self.物品数据["足迹"][i].价格=self.数据["足迹"][i].价格
					end
				end
			elseif self.子类=="锦衣" then
				for i=1,#self.数据.锦衣 do
					if self.物品数据["锦衣"][i]==nil then
				 	local xn = 引擎.取普通锦衣模型(self.数据["锦衣"][i].名称,tp.队伍[1].模型)
				 	self.物品数据["锦衣"][i] = tp.资源:载入(xn[3],"网易WDF动画",xn[1])
				 	self.物品数据["锦衣"].数量=#self.数据["锦衣"]
				 	self.物品数据["锦衣"][i].编号 = i
				 	self.物品数据["锦衣"][i].价格=self.数据["锦衣"][i].价格
				 	end
				 end
			elseif self.子类=="施法特效" then
				for i=1,#self.数据.施法特效 do
					if self.物品数据["施法特效"][i]==nil and _施法表[self.数据["施法特效"][i].名称] then
				 	self.物品数据["施法特效"][i] =tp.资源:载入("施法特效.wdf","网易WDF动画",_施法表[self.数据["施法特效"][i].名称])-- tp.资源:载入(xn[3],"网易WDF动画",xn[1])
				 	self.物品数据["施法特效"].数量=#self.数据["施法特效"]
				 	self.物品数据["施法特效"][i].编号 = i
				 	self.物品数据["施法特效"][i].价格=self.数据["施法特效"][i].价格
				 	end
				 end
			elseif self.子类=="祥瑞" then
				for i=1,#self.数据["祥瑞"] do
					if self.物品数据["祥瑞"][i]==nil then
						-- (tp.队伍[1].模型,self.数据["祥瑞"][i].名称,tp.坐骑列表[self.选中召唤兽].饰品 or "空",tp.坐骑列表[self.选中召唤兽].饰品2 or "空")
						local xn = 坐骑库_云(tp.队伍[1].模型,self.数据["祥瑞"][i].名称,"空","空")
						-- table.print(xn)
						-- self.人物数据={祥瑞={}}
						--self.人物数据["祥瑞"][i] = tp.资源:载入(xn.人物资源,"网易WDF动画",xn.人物站立)
						self.物品数据["祥瑞"][i] = tp.资源:载入(xn.坐骑资源,"网易WDF动画",xn.坐骑站立)
						self.物品数据["祥瑞"].数量=#self.数据["祥瑞"]
						self.物品数据["祥瑞"][i].编号 = i
						self.物品数据["祥瑞"][i].价格=self.数据["祥瑞"][i].价格
					end
				end
             elseif self.子类=="祥瑞套装" then
				   for i=1,#self.数据["祥瑞套装"] do
						if self.物品数据["祥瑞套装"][i]==nil  then
							-- (tp.队伍[1].模型,self.数据["祥瑞"][i].名称,tp.坐骑列表[self.选中召唤兽].饰品 or "空",tp.坐骑列表[self.选中召唤兽].饰品2 or "空")
							local xn =取祥瑞模型(tp.队伍[1].模型,self.数据["祥瑞套装"][i].名称) --引擎.取模型(self.数据["祥瑞套装"][i].名称)
							-- self.人物数据={祥瑞={}}
							if xn[3] and xn[1] then
							self.物品数据["祥瑞套装"][i] = tp.资源:载入(xn[3],"网易WDF动画",xn[1])
							self.物品数据["祥瑞套装"].数量=#self.数据["祥瑞套装"]
							self.物品数据["祥瑞套装"][i].编号 = i
							self.物品数据["祥瑞套装"][i].价格=self.数据["祥瑞套装"][i].价格
							end
						end
					end
			end
			self:初始系统(dt,x,y,2)
		    self.加入=0
		end
	end

	if  引擎.取鼠标滚轮() ==1 or self.资源组[27]:事件判断() then
		self:初始系统(dt,x,y,0)
		if self.加入 >0 then
			self.加入 = self.加入 - 1
		end
	elseif  引擎.取鼠标滚轮() ==-1 or self.资源组[28]:事件判断() then
		self:初始系统(dt,x,y,0)
		if self.加入 <self.翻页数据 then
			self.加入 = self.加入 + 1
		end
	end
	self.焦点 = false
	self.选中编号 = 0
	local x横,x竖 = 1,1
	for n = 1, 8 do
		if self.物品数据[self.子类] and self.物品数据[self.子类][n+self.加入*8]~=nil then
			if self.物品数据[self.子类][n+self.加入*8]:是否选中(x,y) then
				self.焦点=true
				self.选中编号 = n+self.加入*8
			--	tp.提示:自定义(x-42,y+27,"#G/右键#Y查看属性 \n#G/再次右键#Y切换 ")
				if 引擎.鼠标弹起(左键) then
				    self.选中编号2=n
				    self.选中编号3 = n+self.加入*8
				    self.选中编号4 = n+self.加入*8
				end
			end
			self.锦衣背景:显示(self.x+75+214-125+(x横-1)*162, self.y+50+168-62+(x竖-1)*180)
            if self.子类=="锦衣" then
                self.物品数据[self.子类][n+self.加入*8]:更新(dt)
                 self.物品数据[self.子类][n+self.加入*8]:显示(self.x+234+130-117+(x横-1)*162,self.y+60+248-33+(x竖-1)*180)
                 tp.影子:显示(self.x+130+234-117+(x横-1)*162,self.y+60+248-30+(x竖-1)*180)
            elseif self.子类=="光环" then
                 self.物品数据[self.子类][n+self.加入*8]:更新(dt)
                 self.物品数据[self.子类][n+self.加入*8]:显示(self.x+234+130-117+(x横-1)*162,self.y+60+248-33+(x竖-1)*180)
            elseif self.子类=="足迹" then
                 self.物品数据[self.子类][n+self.加入*8]:更新(dt)
                 self.物品数据[self.子类][n+self.加入*8]:显示(self.x+249+130-117+(x横-1)*162,self.y+60+248-33+(x竖-1)*180)
            elseif self.子类=="祥瑞" then
               self.物品数据[self.子类][n+self.加入*8]:更新(dt)
                 self.物品数据[self.子类][n+self.加入*8]:显示(self.x+234+130-117+(x横-1)*162,self.y+60+248-33+(x竖-1)*180)
                 tp.影子:显示(self.x+130+234-117+(x横-1)*162,self.y+60+248-30+(x竖-1)*180)
            elseif self.子类=="祥瑞套装" then
                self.物品数据[self.子类][n+self.加入*8]:更新(dt)
                 self.物品数据[self.子类][n+self.加入*8]:显示(self.x+234+130-117+(x横-1)*162,self.y+60+248-33+(x竖-1)*180)
                 tp.影子:显示(self.x+130+234-117+(x横-1)*162,self.y+60+248-30+(x竖-1)*180)
            elseif self.子类=="施法特效" then
               self.物品数据[self.子类][n+self.加入*8]:更新(dt)
                 self.物品数据[self.子类][n+self.加入*8]:显示(self.x+234+130-117+(x横-1)*162,self.y+60+248-33+(x竖-1)*180)
                 tp.影子:显示(self.x+130+234-117+(x横-1)*162,self.y+60+248-30+(x竖-1)*180)
            end
            zts2:置颜色(黑色)
            local 名称宽度=zts2:取宽度(self.数据[self.子类][n+self.加入*8].名称)
            zts2:显示(self.x+145+139-117+(x横-1)*162+(155-名称宽度)/2,self.y+45+264-135-17+(x竖-1)*180,self.数据[self.子类][n+self.加入*8].名称)--tp.字体表.普通字体:显示(self.x+150+139-117+(x横-1)*162+(155-名称宽度)/2,self.y+50+248+2+(x竖-1)*180,self.数据[self.子类][n+self.加入*8].名称)
            local 名称宽度=zts2:取宽度(self.数据[self.子类][n+self.加入*8].价格)
            zts2:显示(self.x+145+139-117+(x横-1)*162+(155-名称宽度)/2,self.y+50+261+2+(x竖-1)*180,self.数据[self.子类][n+self.加入*8].价格)
            if self.选中编号 ~= 0 and self.选中编号 == n+self.加入*8 then
                self.选中显示5:显示(self.x+75+214-125+(x横-1)*162, self.y+50+168-62+(x竖-1)*180)
            end
             if self.选中编号2 ~= 0 and self.选中编号2 == n then
                self.选中显示5:显示(self.x+75+214-125+(x横-1)*162, self.y+50+168-62+(x竖-1)*180)
             end
        end
		if x横 == 4  then
			x横 = 1
			x竖=x竖+1
		else
			x横 = x横+1
		end
	end
	if self.选中编号 ~= 0 then
		if 引擎.鼠标弹起(左键) and self.选中编号3~=0 then
			self.价格 = self.物品数据[self.子类][self.选中编号3].价格--self.数据[self.子类][self.选中编号3].价格
			if self.商品编号 == self.选中编号 then
				self.数量 = 1--self.数量 + 1
				self.总额 = self.数量 * self.价格
				self.输入框:置文本(self.数量)
				return 0
			else
				self.数量 = 1
				self.总额 = self.数量 * self.价格
				self.输入框:置文本(self.数量)
			end
			self.商品编号 = self.选中编号
		elseif 引擎.鼠标弹起(右键) and self.商品编号 == self.选中编号 and self.数量 > 1 then
			self.数量 = self.数量 - 1
			self.总额 = self.数量 * self.价格
			self.输入框:置文本(self.数量)
		end
	end
	商城银两显示(self.银两文字2, self.总额,self.x+190+40,self.y+548+5)
end
function 商城类:物品类(dt,x,y)
	self.右键关闭=nil
	   if self.分类=="法宝" then
		for i=40,40 do
			self.资源组[i]:更新(x,y,self.子类~=self.资源组[i].按钮文字)
			--self.资源组[i]:显示(self.x+160+(i-40)*70,self.y+113,true,nil,nil,self.子类 ==self.资源组[i].按钮文字,2)
			if self.资源组[i].事件 then
				if not  self.物品数据[self.资源组[i].按钮文字] then
				    tp.常规提示:打开(self.资源组[i].按钮文字.."#Y暂未出售商品")
				    return
				end
			    self.子类=self.资源组[i].按钮文字
			 	self.分类="法宝"
			 	self:初始系统(dt,x,y,2)
			elseif self.资源组[i]:是否选中(x,y) then
			    	tp.提示:自定义(x+10,y+10,"#G"..self.资源组[i].按钮文字.."商城")
			end
		end
		-- 商城银两显示(self.银两文字, self.银子, self.x+190+100,self.y+ 557)
	    elseif self.分类=="灵宝" then
	    	for i=60,60 do
			self.资源组[i]:更新(x,y,self.子类~=self.资源组[i].按钮文字)
			--self.资源组[i]:显示(self.x+160+(i-60)*70,self.y+113,true,nil,nil,self.子类 ==self.资源组[i].按钮文字,2)
			if self.资源组[i].事件 then
				if not  self.物品数据[self.资源组[i].按钮文字] then
				    tp.常规提示:打开(self.资源组[i].按钮文字.."#Y暂未出售商品")
				    return
				end
			            self.子类=self.资源组[i].按钮文字
			 	self.分类="灵宝"
			 	self:初始系统(dt,x,y,2)
			elseif self.资源组[i]:是否选中(x,y) then
			    	tp.提示:自定义(x+10,y+10,"#G"..self.资源组[i].按钮文字.."商城")
			end
		end
		--商城银两显示(self.银两文字, self.仙玉, self.x+190+100,self.y+ 557)
	    elseif self.分类=="仙玉" then
	    	 if self.仙玉商城.事件 then
		   	 self.分类="仙玉"
		   	 self.子类="仙玉商城"
		   	 self:初始系统(dt,x,y,2)
		   	 self.加入=0
		      elseif self.特殊商城.事件 then
		   	 self.分类="仙玉"
		   	 self.子类="特殊商城"
		   	 self:初始系统(dt,x,y,2)
		   	 self.加入=0
		     elseif self.礼包.事件 then
		   	 self.分类="仙玉"
		   	 self.子类="礼包"
		   	 self:初始系统(dt,x,y,2)
		   	 self.加入=0
			 end
	    self.特殊商城:更新(x,y,self.分类=="仙玉"and self.子类~="特殊商城")
	    self.礼包:更新(x,y,self.分类=="仙玉"and self.子类~="礼包")
	    self.仙玉商城:更新(x,y,self.分类=="仙玉"and self.子类~="仙玉")
	    --self.特殊商城:显示(self.x+160+0*70,self.y+113)
	    --self.礼包:显示(self.x+160+1*70,self.y+113)
	    --self.仙玉商城:显示(self.x+160+2*70,self.y+113)

	   -- 商城银两显示(self.银两文字, self.仙玉, self.x+190+100,self.y+ 557)
	    elseif self.分类=="杂货" then
	    	 --self.银子商城:显示(self.x+160+0*70,self.y+113)
	         self.银子商城:更新(x,y,self.分类=="杂货"and self.子类~="银子商城")
		   if self.银子商城.事件 then
		   	 self.分类="杂货"
		   	 self.子类="银子商城"
		   	 self:初始系统(dt,x,y,2)
		   	 self.加入=0
		   end
		   --商城银两显示(self.银两文字, self.银子, self.x+190+100,self.y+ 557)
	    elseif self.分类=="积分" then
	    	 self.资源组[44]:更新(x,y,self.子类~=self.资源组[44].按钮文字)
			self.资源组[44]:显示(self.x+165,self.y+115,true,nil,nil,self.子类 ==self.资源组[44].按钮文字,2)
			if self.资源组[44].事件 then
				if not  self.物品数据[self.资源组[44].按钮文字] then
				    tp.常规提示:打开(self.资源组[44].按钮文字.."#Y暂未出售商品")
				    return
				end
			    self.子类=self.资源组[44].按钮文字
			 	self.分类="积分"
			 	self:初始系统(dt,x,y,2)
			 	self.加入=0
			elseif self.资源组[44]:是否选中(x,y) then
			    	tp.提示:自定义(x+10,y+10,"#G"..self.资源组[44].按钮文字.."积分商城")
			end
		-- 商城银两显示(self.银两文字, self.积分 and self.积分[self.子类], self.x+190+100,self.y+ 557)
	  -- end
	      self.资源组[45]:更新(x,y,self.子类~=self.资源组[45].按钮文字)
			self.资源组[45]:显示(self.x+255,self.y+115,true,nil,nil,self.子类 ==self.资源组[45].按钮文字,2)
			if self.资源组[45].事件 then
				if not  self.物品数据[self.资源组[45].按钮文字] then
				    tp.常规提示:打开(self.资源组[45].按钮文字.."#Y暂未出售商品")
				    return
				end
			    self.子类=self.资源组[45].按钮文字
			 	self.分类="积分"
			 	self:初始系统(dt,x,y,2)
			 	self.加入=0
			elseif self.资源组[45]:是否选中(x,y) then
			    	tp.提示:自定义(x+10,y+10,"#G"..self.资源组[45].按钮文字.."积分商城")
			end
		-- 商城银两显示(self.银两文字, self.积分 and self.积分[self.子类], self.x+190+100,self.y+ 557)
	  -- end
		    self.资源组[52]:更新(x,y,self.子类~=self.资源组[52].按钮文字)
			self.资源组[52]:显示(self.x+345,self.y+115,true,nil,nil,self.子类 ==self.资源组[52].按钮文字,2)
			if self.资源组[52].事件 then
				if not  self.物品数据[self.资源组[52].按钮文字] then
				    tp.常规提示:打开(self.资源组[52].按钮文字.."#Y暂未出售商品")
				    return
				end
			    self.子类=self.资源组[52].按钮文字
			 	self.分类="积分"
			 	self:初始系统(dt,x,y,2)
			 	self.加入=0
			elseif self.资源组[52]:是否选中(x,y) then
			    	tp.提示:自定义(x+10,y+10,"#G"..self.资源组[52].按钮文字.."积分商城")
			end
		-- 商城银两显示(self.银两文字, self.积分 and self.积分[self.子类], self.x+190+100,self.y+ 557)
	   end
	self.输入框:置可视(true,true)
	self.焦点 = false
--------------------------------------------------
	--商城银两显示(self.银两文字1, self.价格,self.x+190+100,self.y+475+2)	 --√
	商城银两显示(self.银两文字2, self.总额,self.x+190+40,self.y+548+5)	 --√
	--self.物品背景:显示(self.x+184,self.y+170)
	self.选中编号 = 0
	local x横,x竖 = 1,1
	for n = 1, 15 do
		if self.分类=="仙玉"or self.分类=="灵宝" then
		self.仙玉背景:显示(self.x+35+x横*129, self.y+24+x竖*126)
		--self.物品背景:显示(self.x+71+x横*129, self.y+59+x竖*126)
		elseif self.分类=="杂货"or self.分类=="法宝"  then
		self.银子背景:显示(self.x+35+x横*129, self.y+24+x竖*126)
		--self.物品背景:显示(self.x+71+x横*129, self.y+59+x竖*126)
		elseif self.分类=="积分"  then
		self.无边背景:显示(self.x+35+x横*129, self.y+24+x竖*126)
		--self.物品背景:显示(self.x+71+x横*129, self.y+59+x竖*126)
	    end
		if self.物品数据[self.子类] and self.物品数据[self.子类][n+self.加入*15]~=nil then
			if self.物品数据[self.子类][n+self.加入*15].焦点 then
				self.选中编号 = n+self.加入*15
				if 引擎.鼠标弹起(左键) then
				    self.选中编号2=n
				    self.选中编号3 = n+self.加入*15
				end
			end
			if self.数据[self.子类][n+self.加入*15].名称 then
				zts2:置颜色(金色)
	            zts:置颜色(黑色)
			zts:显示(self.x+(100- zts:取宽度(self.数据[self.子类][n+self.加入*15].价格)/2)+x横*129, self.y+132+x竖*126, self.数据[self.子类][n+self.加入*15].价格)
			tp.字体表.普通字体:显示(self.x+(100- tp.字体表.普通字体:取宽度(self.数据[self.子类][n+self.加入*15].名称)/2)+x横*129, self.y+22+x竖*126+6, self.数据[self.子类][n+self.加入*15].名称)  --固定名称位置
		    end
			self.物品数据[self.子类][n+self.加入*15]:置坐标(self.x+75+x横*129, self.y+58+x竖*126)     --√  物品显示位置
			self.物品数据[self.子类][n+self.加入*15]:显示(dt,x,y,self.鼠标)
			if self.选中编号2 ~= 0 and self.选中编号2 == n then
				self.选中显示2:更新(dt)
				self.选中显示2:显示(self.x+75+x横*129, self.y+60+x竖*126)		--√
			end
		end
		if x横 == 5  then  --√   横排显示数量
			x横 = 1
			x竖=x竖+1
		else
			x横 = x横+1
		end
	end
--------------------------------------------------
	if self.选中编号 ~= 0 then
		tp.提示:道具行囊(x,y,self.物品数据[self.子类][self.选中编号].物品)
		if 引擎.鼠标弹起(左键) then
			self.价格 = self.数据[self.子类][self.选中编号].价格
			if self.商品编号 == self.选中编号 and self.数据[self.子类][self.选中编号].可叠加 then
				self.数量 = self.数量 + 1
				self.总额 = self.数量 * self.价格
				self.输入框:置文本(self.数量)
				return 0
			else
				self.数量 = 1
				self.总额 = self.数量 * self.价格
				self.输入框:置文本(self.数量)
			end
			self.商品编号 = self.选中编号
		elseif 引擎.鼠标弹起(右键) and self.商品编号 == self.选中编号 and self.数量 > 1 then
			self.数量 = self.数量 - 1
			self.总额 = self.数量 * self.价格
			self.输入框:置文本(self.数量)
		end

	end
	if self.输入框._已碰撞 then
		self.焦点 = true
	end
	zts2:置颜色(白色)
	zts:置颜色(白色)
end

function 商城类:召唤兽类(dt,x,y)
	--商城银两显示(self.银两文字, self.银子, self.x+280,self.y+ 557)
	self.右键关闭=1
	self.焦点 = false
	self.选中编号 = 0
	local x横,x竖 = 1,1
	for n = 1, 8 do
		if self.物品数据[self.子类] ~= nil and self.物品数据[self.子类][n+self.加入*8]~=nil then
			self.宠物背景:显示(self.x+75+214-125+(x横-1)*162, self.y+50+168-62+(x竖-1)*180)
			tp.字体表.普通字体:显示(self.x+65+204-95+(x横-1)*162+43, self.y+95+75+(x竖-1)*180,self.数据[self.子类][n+self.加入*8].名称)  --物品显示名称..
             tp.字体表.普通字体:显示(self.x+55+48+214-107+(x横-1)*162, self.y+63+168-76+(x竖-1)*180+159,self.数据[self.子类][n+self.加入*8].价格)  --物品显示名称..

			 if self.宠物背景:是否选中(x,y) then
				self.选中编号 = n+self.加入*8
				tp.提示:自定义(x,y,"\n#R右键可查看资质技能！")
				if 引擎.鼠标弹起(左键) then
				    self.选中编号2=n+self.加入*8
				    --self.选中编号4 = n+self.加入*12
				elseif   self.物品数据[self.子类][n + self.加入 * 8] ~= nil and self.宠物背景:是否选中(x, y) and 引擎.鼠标弹起(右键) then
					tp.窗口.召唤兽查看栏:打开(self.数据[self.子类][n+self.加入*8])
				end
			end
			self.物品数据[self.子类][n+self.加入*8]:更新(dt)
			self.物品数据[self.子类][n+self.加入*8]:显示(self.x+145+204-107+(x横-1)*162, self.y+150-35+228-70+(x竖-1)*180)
			tp.影子:显示(self.x+135+234-117+(x横-1)*162,self.y+60+248-30+(x竖-1)*180)
			 if self.选中编号 ~= 0 and self.选中编号 == n+self.加入*8 then
                self.选中显示5:显示(self.x+75+214-125+(x横-1)*162, self.y+50+168-62+(x竖-1)*180)
            end
             if self.选中编号2 ~= 0 and self.选中编号2 == n+self.加入*8 then
                self.选中显示5:显示(self.x+75+214-125+(x横-1)*162, self.y+50+168-62+(x竖-1)*180)
             end
		end
		if x横 == 4  then
			x横 = 1
			x竖=x竖+1
		else
			x横 = x横+1
		end
	end
	if self.选中编号 ~= 0 then
		tp.提示:道具行囊(x,y,self.物品数据[self.子类][self.选中编号].物品)
		if 引擎.鼠标弹起(左键) then
			self.价格 = self.数据[self.子类][self.选中编号].价格
			if self.商品编号 == self.选中编号 and self.数据[self.子类][self.选中编号].可叠加 then
				self.数量 = self.数量 + 1
				self.总额 = self.数量 * self.数据[self.子类][self.选中编号2].价格
				self.输入框:置文本(self.数量)
				return 0
			else
				self.数量 = 1
				self.总额 = self.数量 * self.数据[self.子类][self.选中编号2].价格
				self.输入框:置文本(self.数量)
			end
			self.商品编号 = self.选中编号
		elseif 引擎.鼠标弹起(右键) and self.商品编号 == self.选中编号 and self.数量 > 1 then
			self.数量 = self.数量 - 1
			self.总额 = self.数量 * self.数据[self.子类][self.选中编号2].价格
			self.输入框:置文本(self.数量)
		end

	end
	if self.输入框._已碰撞 then
		self.焦点 = true
	end
	zts2:置颜色(白色)
	zts:置颜色(白色)
	商城银两显示(self.银两文字2, self.总额,self.x+190+40,self.y+548+5)
end

function 商城类:初始移动(x,y)
	tp.运行时间 = tp.运行时间 + 1
	if not tp.消息栏焦点 then
  		self.窗口时间 = tp.运行时间
 	end
	if not self.焦点 then
		tp.移动窗口 = true
	end
	if self.可视 and self.鼠标 and  not self.焦点 then
		self.xx = x - self.x
		self.yy = y - self.y
	end
end

function 商城类:开始移动(x,y)
	if self.可视 and self.鼠标 then
		self.x = x - self.xx
		self.y = y - self.yy
	end
end

return 商城类